﻿Public Class frmChangeAgence
    Private szSQL As String
    Private rs As ADODB.Recordset

    Private Sub frmChangeAgence_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' affiche le nom de l'agence de l'utilisateur
        TE_NomAgence.Text = gNomAgence
        InitComboAgences(CB_Agences)
    End Sub


    Private Sub BO_Annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BO_Annuler.Click
        ' fermer le form
        Me.Close()
    End Sub

    Private Sub BO_Changer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BO_Changer.Click
        gUserAgence = CB_Agences.SelectedIndex + 1
        ' fermer le form
        Me.Close()
    End Sub

End Class